home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
JCSM Shareware Collection 1996 September
/
JCSM Shareware Collection (JCS Distribution) (September 1996).ISO
/
bother__
/
11420e01.ziv
/
PFRM.EXE
/
FEDEX.FRM
< prev
next >
Wrap
Text File
|
1989-03-19
|
6KB
|
200 lines
~{The TESTDATA file should be on the screen when printing this form.}~
~{Lines beginning and ending with tildes and curley brackets are comments.}~
~{The number following the comma in each code is the number of characters to}~
~{be read from the screen.}~
FED-EX # ~DATE~
~{the ~\~ code on the next line means that it is to be overwritten by the}~
~{following one. The ~+~ code at the end of a line means that the NEXT line}~
~{should be joined to it}~
Your Name 000-000-0000~\~
~("Name: ",20)~~\~
~+~
~("Phone: ",15)~
Your Company~\~
~("Firm: ",35)~
Your Street~\~
~("Addr: ",35)~
Your City & State Zip~\~
~("City: ",23)~~\~
~+~
~("Zip: ",11)~
~{the next 2 lines allow you to specify services and special handling}~
~label SERVICES~
~NUM3CC~
~NUM3+INPUT 1=Priority1 2=O'niteEnv 3=O'niteBox 4=O'niteTube 5=StdAir 6=Ltr~
~{next line says to repeat the last line if 1,2 3,4,5 or 6 wasn't selected}~
~if num3|1,2,3,4,5,6~~goto SERVICES~~\~
~label HANDLING~
~NUM4CC~
~NUM4+INPUT 1=Hold 2=Wkday 3=SatDel 4=Danger 5=CCS 6=ICE 9=SatPU 12=HoliDay~
~{next line says to repeat the last line if 1,2 3,4,9 or 12 wasn't selected}~
~if num4|1,2,3,4,5,6,9,12~~goto HANDLING~~\~
~{the next line tells PopForm to go to ENDHOLD label if NUM4 is not 1}~
~if 1<>NUM4~~goto ENDHOLD~~\~
~{the next 3 lines ask for the FedEx address, city, state & zip for hold item}~
~WRD1+INPUT Street address of FedEx office where item will be held~
~WRD2+INPUT City, State of FedEx office where item will be held~
~WRD3+INPUT Zip of FedEx office where item will be held~
~label ENDHOLD~
Put your billing reference information here~\~
~{the next lines print the holding info, if you specified any}~
~if ""=wrd1~~goto ENDHOLDADD~~\~
~wrd1~~\~
~label ENDHOLDADD~
~{the next line asks for the method of payment and stores it as NUM1}~
~label PAYMENT~
~NUM1CC~
~NUM1+INPUT "Payment: 1=Sender 2=Recip 3=3dParty 4=Card 5=Cash"~~\~
~{the next line says to repeat the last line if 1,2 3,4 or 5 wasn't selected}~
~if num1|1,2,3,4,5~~goto PAYMENT~~\~
~if 1<>NUM1~~goto PM2~~\~
X
~goto FILLIN~
~label PM2~
~if 2<>NUM1~~goto PM3~~\~
X
~goto FILLIN~
~label PM3~
~if 3<>NUM1~~goto PM4~~\~
X
~goto FILLIN~
~label PM4~
~if 4<>NUM1~~goto PM4~~\~
X
~goto FILLIN~
~label PM4~
X~\~
~label FILLIN~
~if 2<>NUM1~~goto 3DPART~~\~
~INPUT "Recipient's FedEx Acct Number:"~~\~
~goto SERVICE~
~label 3DPART~
~if 3<>NUM1~~goto CC~~\~
~INPUT "3d Party FedEx Acct Number:"~~\~
~goto SERVICE~
~label CC~
~if 4<>NUM1~~goto SERVICE~~\~
MC 100-000000-00000~\~
~label SERVICE~
~if ""=wrd2~~goto ENDHOLDSTR~~\~
~wrd2~~\~
~wrd3~~\~
~label ENDHOLDSTR~
~if 1<>Num3~~goto A~~\~
X~\~
~label A~
~if 6<>Num3~~goto B~~\~
X~\~
~label B~
~if 1<>Num4~~goto C~~\~
X~\~
~label C~
~NUM1cc~
~NUM1+INPUT "First Package's weight, in pounds"~
~NUM2+INPUT "First Package's value"~
~DECIMALS 1~
~if 0<>NUM1~1 ~NUM1~~\~
~DECIMALS 2~
~if 0<>NUM2~~NUM2~~\~
~NUM8+NUM1~
~NUM9+NUM2~
~if 2<>Num4~~goto D~~\~
X~\~
~label D~
~if 0=num1~~goto END2~~\~
~NUM1cc~
~NUM2cc~
~NUM1+INPUT "Second Package's weight, in pounds"~
~NUM2+INPUT "Second Package's value"~
~DECIMALS 1~
~if 0<>NUM1~2 ~NUM1~~\~
~DECIMALS 2~
~if 0<>NUM2~~NUM2~~\~
~NUM8+NUM1~
~NUM9+NUM2~
~label END2~
~if 2<>Num3~~goto E~~\~
X~\~
~label E~
~if 3<>Num4~~goto F~~\~
X~\~
~label F~
~if 0=num1~~goto END3~~\~
~NUM1cc~
~NUM2cc~
~NUM1+INPUT "Third Package's weight, in pounds"~
~NUM2+INPUT "Third Package's value"~
~DECIMALS 1~
~if 0<>NUM1~3 ~NUM1~~\~
~DECIMALS 2~
~if 0<>NUM2~~NUM2~~\~
~NUM8+NUM1~
~NUM9+NUM2~
~label END3~
~if 4<>Num4~~goto G~~\~
X~\~
~label G~
~if 0=num1~~goto END4~~\~
~NUM1cc~
~NUM2cc~
~NUM1+INPUT "Fourth Package's weight, in pounds"~
~NUM2+INPUT "Fourth Package's value"~
~DECIMALS 1~
~if 0<>NUM1~4 ~NUM1~~\~
~DECIMALS 2~
~if 0<>NUM2~~NUM2~~\~
~label END4~
~if 3<>Num3~~goto H~~\~
X~\~
~label H~
~if 5<>Num4~~goto I~~\~
X~\~
~label I~
~NUM8+NUM1~
~NUM9+NUM2~
~DECIMALS 1~
~if 0<>NUM8~~NUM8~~\~
~DECIMALS 2~
~if 0<>NUM9~~NUM9~~\~
~if 6<>Num4~~goto J~~\~
X~\~
~label J~
~if 4<>Num3~~goto K~~\~
X~\~
~label K~
~if 7<>Num4~~goto L~~\~
X~\~
~label L~
~if 9<>Num4~~goto M~~\~
X~\~
~label M~
~if 5<>Num3~~goto N~~\~
X~\~
~label N~
~if 12<>Num4~~goto O~~\~
X~\~
~label O~
~NEWPAGE~